#!/usr/bin/perl
#index.cgi

require "accounts.pl";
&header($text{'index_title'}, "", "index", 0, 1);

print("<form name='indexform' action=check.cgi method=post onsubmit='return onsubmit_form();'> \n");

print "<table class=mode1 width=80%>";
print "<tr><td width=$td_width>$text{'user_name'}</td><td><input name=username class=text type='text' value=\"$username\"></td></tr>";
print "<tr><td width=$td_width>$text{'password'}</td><td><input class=text name=passwd type='password' value=''>\n";
print "</tr><br>";
print "</table>\n";
print "<br>";
print "<input type='submit' class='button1' ", "name='submit_ok'", "value=\'$text{'new_submit'}\' onclick=\'return on_submit_ok( )\'>\n";

print("</form>\n");
print <<EOF;
<script>


</script>
EOF
&footer("/", $text{'index'});

